home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb8.arc / TYPES.INC < prev    next >
Text File  |  1985-02-23  |  512b  |  35 lines
  1. {.L+}
  2.  
  3. { DEFINES TYPES FOR INCLUDED ROUTINES  }
  4.  
  5. { DO NOT USE ANY IDENTIFIERS STARING WITH XXX  }
  6.  
  7. {.L-}
  8. {.R-}
  9.  
  10. TYPE
  11.    XXXSTR80 = STRING[80];
  12.    XXXSTR8 = STRING[8];
  13.    XXXFILE = FILE;
  14.  
  15.  
  16. {INTERNAL ROUTINES   }
  17.  
  18. FUNCTION XXXSPACE(N:INTEGER):XXXSTR80;
  19.  
  20. { GENERATES A BLANK N SPACES LONG  }
  21.  
  22. VAR
  23.    HOLD : STRING [80];
  24.    I : INTEGER;
  25.  
  26. BEGIN
  27.    IF N>80 THEN
  28.       N := 80 ;
  29.    HOLD := '';
  30.    FOR I := 1 TO N DO
  31.       HOLD := HOLD + ' ';
  32.    XXXSPACE := HOLD;
  33. END;
  34. {.R+}
  35. {.L+}